object Renameform: TRenameform Left = 844 Top = 304 BorderStyle = bsDialog Caption = 'Rename Archive' ClientHeight = 209 ClientWidth = 417 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False Position = poScreenCenter OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object Topbevel: TBevel Left = 0 Top = 65 Width = 417 Height = 8 Align = alTop Shape = bsTopLine end object Bevel1: TBevel Left = 8 Top = 168 Width = 401 Height = 9 Shape = bsTopLine end object Toppanel: TPanel Left = 0 Top = 0 Width = 417 Height = 65 Align = alTop BevelOuter = bvNone Color = clWhite TabOrder = 0 object Captionlabel: TLabel Left = 8 Top = 8 Width = 94 Height = 13 Caption = 'Rename Archive' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Infolabel: TLabel Left = 16 Top = 24 Width = 336 Height = 26 Caption = 'Please enter the new archive name in the lower field. The curren' + 't name are shown in the upper field.' WordWrap = True end object Image: TImage Left = 361 Top = 8 Width = 48 Height = 48 AutoSize = True Picture.Data = {} Transparent = True end end object Newedit: TLabeledEdit Left = 8 Top = 136 Width = 401 Height = 21 EditLabel.Width = 70 EditLabel.Height = 13 EditLabel.Caption = 'New file name:' LabelPosition = lpAbove LabelSpacing = 3 TabOrder = 1 end object Currentedit: TLabeledEdit Left = 8 Top = 88 Width = 401 Height = 21 EditLabel.Width = 82 EditLabel.Height = 13 EditLabel.Caption = 'Current file name:' Enabled = False LabelPosition = lpAbove LabelSpacing = 3 TabOrder = 2 end object Cancelbutton: TButton Left = 336 Top = 176 Width = 75 Height = 25 Cancel = True Caption = 'Cancel' ModalResult = 2 TabOrder = 3 end object Renamebutton: TButton Left = 256 Top = 176 Width = 75 Height = 25 Caption = 'Rename' Default = True ModalResult = 1 TabOrder = 4 end end